home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 034a / fd202.zip / PCP.SCR < prev    next >
Text File  |  1991-08-14  |  4KB  |  147 lines
  1. ;  PCP script for FrontDoor version 2.01
  2. ;  Eric Larson, 1:260/330.0, 8/11/91
  3. ;  modified from script supplied in FD 1.99 documentation
  4. ;
  5. ; You must modify this script in at least 3 places:
  6. ;
  7. ;       1: Indial Number
  8. ;       2: PCP ID Number
  9. ;       3: PCP Password
  10. ;
  11. ; You may also want to modify the script for your modem
  12. ; or types of systems you call. See notes in script.
  13. ; For further information, see PCP documentation on
  14. ; Net Exchange BBS. To connect to the Net Exchange, type
  15. ; "C PURSUIT" at the Telenet @ prompt.
  16. ;
  17.  
  18. debug     ON
  19. setport   2400  ; Redundant if you have locked your Fossil
  20.                 ; If you have a 1200 indial :-(, use 1200
  21.                 ; here and change the hunt-confirm sequence
  22.                 ; to @ wait 1 <CR>
  23. ;
  24. ; Users with MNP modems should disable MNP as the buffering
  25. ; combined with PCP's packet latency will cause block position
  26. ; errors during error recovery. For HST owners, use:
  27. ;
  28. send AT&M0<CR>
  29. waitfor OK
  30. ;
  31. ;  Others should adjust the above for their modem
  32. ;  non-buffered modem owners should comment out the
  33. ;  above two lines.
  34. ;
  35. ;----------------------------------
  36. ; Your Indial Phone Number Here
  37. ;----------------------------------
  38. ;
  39. send ATDT4795372<CR>
  40. ; send ATDT4795445<CR> ; official number
  41. ; 6406 5776 5355 5372 ; alternates
  42. ;
  43. ; If you are having difficulty with your indial line, call
  44. ; PCP customer service and they may be able to give you
  45. ; an alternate number that works better.
  46.  
  47. case
  48.      CONNECT        : >whackit
  49.      RING<CR>       : fail
  50.      BUSY<CR>       : fail
  51.      "NO "          : fail
  52.      @default       : fail
  53. endcase
  54.  
  55. :whackit                             ; Attempt to "wake-up" PCP
  56.      purgein                         ; Telenet recommends at least
  57.      wait      2                     ; a 200 ms pause between
  58.      send      @                     ; characters in the hunt-confirm sequence
  59.      wait      1                     ; change the @ to <CR> if you call
  60.      send      D                     ; a 1200 bps indial
  61.      wait      1
  62.      send      <CR>
  63.      waitfor   TERMINAL=
  64.      send      D3<CR>                ; Preferred terminal type
  65.      waitfor   @
  66.  
  67. ;--------------------------
  68. ; Your ID and Password Here
  69. ;--------------------------
  70.  
  71. :outdial                                  ; Dial PCP city
  72.      purgein
  73.      retrycount 5
  74.      send      C @OUTBOUND,YOURPCPID<CR>  ; Your ID Here
  75.      waitfor   PASSWORD
  76.      send      YOURPASSWORD<CR>           ; Your Password Here
  77.  
  78. CASE
  79.      CONNECT         : >local             ; Gotcha!
  80.      BUSY            : >outdial
  81.      "NOT "          : fail
  82.      @nocarrier      : fail
  83.      @default        : fail
  84. ENDCASE
  85.  
  86. :local                                    ; Initialize Outdial
  87.      purgein
  88.      send <CR>
  89.      wait 1
  90.      send I<CR>
  91.      send ATZ|
  92.      timerset 15
  93.      waitfor OK
  94.      send @|
  95.      waitfor @
  96. ;
  97. ; Setup PADS
  98. ;
  99. ; Note - if you are calling a SEAdog system,
  100. ; change the SET and RST 5:1 and 12:1 to 5:0 and 12:0
  101. ; as SEAlink is not transparent to software flow control
  102. ;
  103. ; If you only call WaZoo systems, use 5:1 and 12:1 for
  104. ; fewer errors and greater reliability.
  105. ;
  106.  send SET?<sp>1:0,7:8<CR>
  107. ;
  108.  waitfor @
  109. ;
  110. ; send RST?5:1,12:1<CR>
  111. ;
  112. ;    waitfor @
  113.  
  114.      send CONT<CR>
  115.      send ATH0Z<CR>
  116.      waitfor OK|IDLE
  117.      send <ENQ><CR>                ; Turn on RV Mode
  118.      waitfor *
  119.  
  120.      purgein
  121.  
  122.      timerset 50
  123.      wait 2
  124.      send D@LOCALNUM<CR>
  125.  
  126.      purgein
  127.  
  128. case
  129.      ANS             : >landing
  130.      ONLINE          : >landing
  131.      BUSY            : fail
  132.      FAILED          : fail
  133.      "NO CARRIER"    : fail
  134.      "NO DIAL TONE"  : fail
  135.      "NO DTR"        : fail
  136.      VOICE           : fail
  137.      @default        : fail
  138.      @nocarrier      : fail
  139. endcase
  140.  
  141. :landing                           ; Landing on Pluto
  142.      wait 7                        ; wait for PCP messages to clear
  143.      purgein
  144.      session
  145.  
  146. ;/* End Of File */
  147.